if rec_lock()
   repl area_code  with kode1,sub_areaco with kode2,pro_code with kode3,main_area with main
   repl sub_area with sub,shrt_descr with short,descript with descr,performer with perf,pub_price with pric
   repl tarif_meth with meth,cost_allo1 with cost,HEALTHLINE WITH HELT
   REPL SUN_PC WITH cSunpcc, SUN_PCNM WITH cSunpcn
   REPL ACCT_CODE WITH ACCTCODE
endif
unlock
